program test;
var 
i: Integer;
k: Integer;
begin
	k := 0;
	for i := 0 to 100000 do 
		k := i - k;
	writeln(k);
end.